home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / programming / amos / amos_turbo / demos / fast_plot.amos / fast_plot.amosSourceCode
Encoding:
AMOS Source Code  |  1980-08-18  |  420 b   |  24 lines
  1. Cls 0
  2.  Extension_12_0016 
  3. Dim X(500),Y(500),KOL(500)
  4. For I=1 To 500
  5.    X(I)=Rnd(319)
  6.    Y(I)=Rnd(199)
  7.    KOL(I)=Rnd(7)+1
  8. Next 
  9. T=Timer
  10. For I=1 To 500
  11.  Extension_12_0394 X(I),Y(I),KOL(I)
  12. Next 
  13. Print " F Plot timing in VBL's";Timer-T
  14. Repeat 
  15.    Multi Wait 
  16. Until Extension_12_03B8 
  17. T=Timer
  18. For I=1 To 500
  19. Plot X(I),Y(I),KOL(I)
  20. Next 
  21. Print " Plot timing in VBL's";Timer-T
  22.  Extension_12_0006 
  23. Repeat 
  24. Until Extension_12_03B8